﻿Imports System.Data
Imports Entidad
Imports Negocio
Public Class Frm_Trabajador
    Dim objn As New N_Listado_Combo

    Sub Listado_Combo()
        cbo_estadocivil.SelectedIndex = 0
        cbo_tipdocu.DataSource = objn.Listado_Combo_DocIdentidad()
        cbo_tipdocu.ValueMember = "Id_DocIdent"
        cbo_tipdocu.DisplayMember = "Descripcion"

        cbo_tipovia.DataSource = objn.Listado_Combo_TipoVia()
        cbo_tipovia.ValueMember = "Id_Via"
        cbo_tipovia.DisplayMember = "Descripcion"

        cbo_tipozona.DataSource = objn.Listado_Combo_TipoZona()
        cbo_tipozona.ValueMember = "Id_Zona"
        cbo_tipozona.DisplayMember = "Descripcion"

        cbo_departamento.DataSource = objn.Listado_Combo_Departamento()
        cbo_departamento.ValueMember = "Id_Dep"
        cbo_departamento.DisplayMember = "Descripcion"
        listado_provincia(cbo_departamento.SelectedValue)
        listado_ubigeo(cbo_provincia.SelectedValue)

    End Sub
    Sub listado_provincia(ByVal dep As String)
        If (cbo_departamento.SelectedIndex <> -1) Then
            cbo_provincia.DataSource = objn.Listado_Combo_Provincia(dep)
            cbo_provincia.ValueMember = "Id_Prov"
            cbo_provincia.DisplayMember = "Descripcion"
        End If
    End Sub
    Sub listado_ubigeo(ByVal prov As String)
        If (cbo_departamento.SelectedIndex <> -1) Then
            cbo_ubicacion.DataSource = objn.Listado_Combo_Ubigeo(prov)
            cbo_ubicacion.DisplayMember = "Descripcion"
            cbo_ubicacion.ValueMember = "Id_Ub"
        End If
    End Sub
    Private Sub Frm_Trabajador_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Listado_Combo()
    End Sub

    Private Sub cbo_departamento_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_departamento.SelectedIndexChanged
        listado_provincia(cbo_departamento.SelectedValue.ToString())
    End Sub

    Private Sub cbo_provincia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo_provincia.SelectedIndexChanged
        listado_ubigeo(cbo_provincia.SelectedValue.ToString())
    End Sub
End Class